vbslib.vbs

(src)

→ BenchStart

vbslib.vbs

(src)

→ BenchStart

Set pr_timer = g_VBS_Lib.ProgressTimer
pr_timer.Interval_msec = 100
Do
    If pr_timer.GetShouldShow() Then _
        echo_v  "7/20"
Loop

T_ProgressTimer

データ構造

Interval_msec

Count

MaxCount

ShowFormat

表示の更新間隔（ミリ秒）。 小さすぎると遅くなります。
デフォルトは、1000 ミリ秒。

カウント値。 0以上 .MaxCount 以下。

カウント値の最大値。、

表示のフォーマット。 以下の変数を指定できます。

${Percent}

.Count × 100 ÷ .MaxCount

${Count}

${MaxCount}

${Text}

.Count の値

.MaxCount の値

Start、End_、Plus、Show メソッドの in_Text 引数

デフォルト： " ${Percent}% ${Count}/${MaxCount} ${Text}"

表示のタイミングだけ見る場合

Function  CalculateVariables( Formula as string, Variables as dictionary ) as variant

文字列で表現された計算式を計算します。

【引数】

Formula

Variables

計算式。 VBScript の文法で表現したもの

計算式で使える変数の集合

返り値

計算結果

ファイル：

Dim  NestPos::PosArr  as Array of integer

.PosArr

.Start

  If IsObject( In_ ) Then  Set Out = In_ Else Out = In_

一般に、LetSet を呼び出すより、IsObject で判定（上記のコード）を記述した方が高速ですが、
In_ に関数や Dictionary::Item などの重い処理を記述するときは、その重い処理を
2度実行させないLetSet の方が高速です。

実装：

サンプル：

  LetSetWithBracket  dic, "key", 1

→ T_Var.vbs

テスト

T_LetSet

ソース

→ vbs_inc_sub.vbs

配列、または、辞書に代入するときの

LetSet

です。

関連

→ GetDicItem

下記のどちらかのコードに相当します。

  Dim  name : name = "ClassA"
  Dim  obj : Set obj = get_Object( name )

  Dim  m : Set m = get_ObjectFromFile( "Lib\SampleLib.vbs", "Sample" )

サンプル： SampleLib.vbs ファイルで定義されている Sample オブジェクトを取得する。

上記サンプルは、下記と同じです。

  get_ObjectsFromFile  "Lib\*_obj.vbs", "ClassI", m_Objs '// [out] m_Objs

サンプル： インクルードと同時に、静的オブジェクトを取得する

Function  new_ClassA()
    Set new_ClassA = new ClassA
End Function

機能的には、"new_" + Name の関数を呼び出すだけなので、別途関数を用意する必要があります。
たとえば、Name = "ClassA" なら、new_ClassA の関数が呼ばれます。

(src)

ただし、多くの場合、get_Object の方が適していることが多いので、get_Object を使うことを検討
してください。

→ get_Object

サンプル：

  include_objs  "Lib\*_obj.vbs", Empty, Empty
  Set obj : Set obj = new ClassA : ErrCheck

→ new_X_array

Flags = Empty かつ out_GetFuncs = Empty なら、include で代用できます。

関連

→ include

out_GetFuncs は、静的オブジェクトを取得する関数の集合です。 get_ObjectsFromFile の第1引数
に渡すと、文字列を渡したときより高速に処理します。

→ T_GetObject.vbs [T_IncludeObjs1c]

テスト

→ T_GetObject.vbs [T_IncludeObjs3]

→ T_GetObject.vbs [T_IncludeObjsMulti]

→ T_GetObject.vbs [T_IncludeObjsMulti_NoWild]

→ T_GetObject.vbs [T_IncludeObjsEmptyArray]

Dim  g_SrcPath
If IsEmpty( g_SrcPath ) Then  MsgBox "This is vbslib object file." : WScript.Quit
Dim  g_Sample_vbs : get_DefineInfoObject  g_Sample_vbs, g_SrcPath
'// g_Sample_vbs.FullPath

サンプル：

g_SrcPath

→ DefineInfo プロパティ (vbsool)

Class NameDelegator  '// defined_as_interface
  Public  Name
  Public Property Get  TrueName() : TrueName = NameDelegator_getTrueName( Me ) : End Property
  Public  m_Delegate ' as ClassA or ClassB or string(before validated)
  Public Property Get  DefineInfo() : Set DefineInfo = m_Delegate.DefineInfo : End Property
End Class

Const  F_ValidateOnlyDelegate = &h40000000
Dim    g_bNeedValidateDelegate
Function  NameDelegator_getTrueName( m )
Sub       NameDelegator_validate( m, Flags )
Function  NameDelegator_getXML( m )

DefineInfo プロパティは、オプションです。

  Public Property Get  DefineInfo() : Set DefineInfo = m_Delegate.DefineInfo : End Property

→ DefineInfo プロパティ

テスト

→ T_NameDelegator_vbslib フォルダ

参照

→ 名前参照、Name と TrueName が多対１の場合

Set xml = LoadXML( "Sample.xml", Empty )
new_ObjectFromStream  obj, "ClassA[@attr='value']", xml

参考

→ XPath の [@name='value'] （属性の値）